﻿Public Class AbstractObject

    Protected entityId As Integer, newReg As Boolean, table As String
    Public attCollection As Abstract_Attribute_Collection

    Public Sub setAttValue(ByVal attributeId As String, ByVal value As String)

        Dim refAtt = Me.attCollection.findAttREF(attributeId)
        refAtt.attV = AccessDB.returnValueString(value, refAtt.getData("type"))

    End Sub

    Public Function getAttValue(ByVal attributeId As String) As String

        Return Me.attCollection.findAttREF(attributeId).attV

    End Function

    Public ReadOnly Property DbInfo() As String

        Get
            Return Me.table
        End Get

    End Property

    Public Function saveData() As Boolean

        Dim DbAction As New AccessDB

        Return DbAction.populate(Me) = "paxo"

    End Function

End Class
